10 POKE53280,1:POKE53281,2
20 CLR:PRINT"[147]      LEMONADE STAND"
21 PRINT"AT LEAST GET $250 TYPED BY RAVI PALEPU"
30 SU=.1:PA=1:TA=.5:CI=.1:CO%=0:DA=7:DA$="OCTOBER"
40 FORX=1TO6:READD$(X),D(X),TE(X):NEXTX
45 INPUT"HOW MANY PLAYERS(1-10) 1[157][157][157]";GR:IFGR<>INT(GR)OR(GR)>10ORGR<1THEN45
50 DATA "IT IS HOT.",9,20,"IT IS NICE.",7,15
60 DATA "IT IS CLOUDY",5,10,"IT IS RAINING",3,2
70 DATA "IT IS SNOWING",1,-10,"IT IS VERY HOT",10,25
80 FORN=1TOGR:TP(N)=20:NEXTN
89 REM: START OF EACH DAY
90 Z=INT(RND(1)*6+1)
100 Y=INT(TE(Z)+((RND(1)*8-3.5)))
101 SU=SU+(RND(1)/100-.005)
102 CI=CI+(RND(1)/100-.005)
103 PA=PA+(RND(1)/50-.01)
104 TA=TA+(RND(1)/10-.05)
105 FORN=1TOGR
106 PRINT"[147]PLAYETR #"N":"
107 PRINT"            DATE:[146]    "DA$;DA",1982."
108 PRINT"            WEATHER:[146]     ";D$(Z)
109 PRINT"            TEMPERATURE:[146]    "Y"C."
110 PRINT"THE PRICE OF SUGAR  : $";INT(PA*100)/100
120 PRINT"THE PRICE OF LEMONS  : $";INT(CI*100)/100
130 PRINT"THE PRICE OF GLASSES  : $ .03"
140 PRINT"THE PRICE OF ADVERTISING SIGNS  : $";INT(PA*100)/100
150 PRINT"THE MUNICIPAL TAXES  : $";INT(TA*100)/100
160 PRINT"YOUR MONEY : $";INT(TP(N)*100)/100
170 PRINT"HOW MANY ADVERTISING SIGNS ARE YOU MAKING(0-10)"
171 INPUTB%(N)
175 IFB%(N)<0ORB%(N)>10ORB%(N)<>INT(B%(N))THEN170
180 PRINT"HOW MANY GLASSES OF LEMONADE DO YOU WANT TO MAKE"
181 INPUTA%(N)
185 PRINT:IFA%(N)<0ORA%(N)<>INT(A%(N))THEN180
190 PRINT"WHAT PRICE DO YOU WANT TO CHARGE PER GLASS(IN DOLLARS)"
191 INPUTE(N)
195 IFE(N)<0THEN190
200 A(N)=INT((B%(N)*PA)*100)/100:B(N)=INT((A%(N)*(SU+CI+.03))*100)/100
210 C%(N)=INT(RND(1)*(B%(N)/1.5)+1)*(1.2-E(N))*D(Z)*((Y+25)/10)
212 IFC%(N)>A%(N)THENC%(N)=A%(N)
213 IFC%(N)<0THENC%(N)=0
215 PR(N)=C%(N)*E(N)-B(N)-A(N):TP(N)=TP(N)+PR(N)
216 IFTP(N)>0THEN220
217 PRINT"YOU ARE VERY DUMB. YOU DON'T HAVE ENOUGH MONEY.[146]"
218 FORX=1TO5000:NEXTX:TP(N)=TP(N)-PR(N):IFTP(N)<2THENTP(N)=2
219 GOTO107
220 NEXTN
224 REM:?THE DAY' RESULTS
225 FORN=1TOGR:PRINT"[147]   RESULTS FOR PLAYER #"N":"
230 PRINT"THE COST OF ADVERTISING SIGNS   :$"A(N)
240 PRINT"THE COST OF"A%(N)"GLASSES OF LEMONADE  : $";B(N)
250 PRINT"YOU SOLD"C%(N)"GLASSES OF LEMONADE."
260 PRINT"YOUR PROFIT FOR TODAY IS : $"INT(PR(N)*100)/100
270 PRINT"PRESS THE<<<SPACE BAR>>> TO CONTINUE."
280 GETT$:IFT$="E"THEN500
283 IFT$<>" "THEN280
289 REM:INCREASING THE DATE
290 NEXTN:DA=DA+1:IFDA<31THEN90
300 DA=1:IFDA$<>"OCTOBER"THEN500
310 DA$="NOVEMBER":GOTO90
499 REM:END OF THE PROGRAM
500 PRINT"[147]THE GAME IS OVER."
510 FORN=1TOGR:PRINT"THE PROFIT FOR PLAYER #"N"IS$"INT(TP(N)*100)/100"[157]."
520 NEXTN:END